
*FIBEN 1999-2021
	use "$path_data_local\FIBEN\FIBEN_bruts.dta", clear	
	
	*Rename variables
	foreach v of var aacapitalsouscritnonappelebrut-ypeffectifmoyendupersonnelfinex {
		local a=substr("`v'",1,2)
		capture : rename `v' `a'
	}
	rename atotalactifamortp A_1A
	rename rp2reservedeproprietesurstocksbr rp2
	rename rp3reservedeproprietesurcreances rp3		
	
	*Assets: fixed assets
	gen immo_brut=bj-ab 
	gen immo_corp_brut=(an+ap+ar+at+av+ax)
	gen immo_incorp_brut=(cx+af+ah+aj+al)
	gen immo_fi_brut=(cs+cu+bb+bd+bf+bh)
	
	gen immo_net= immo_brut-(bk-ac)
	gen immo_incorp_net=immo_incorp_brut-(cq+ag+ai+ak+am)
	gen immo_corp_net=immo_corp_brut-(ao+aq+as+au+aw+ay)
	gen immo_fi_net=immo_fi_brut-(ct+cv+bc+be+bg+bi)
	
	*Assets : total
	gen total_actif_brut=co-aa-ab
	gen total_actif_net=total_actif_brut-(A_1A-ac)		
	
	*Endettement
	rename du credit_b
	gen dettes_oblig=ds+dt+dm
	gen endettement_brut=dettes_oblig+dv+ea+dn+credit_b
	
	*Drop year 2021 and before 2006
	keep if year<2020 & year>2006

	*First, stat by replacing missing balance sheet variables with zero value
	foreach v of var aa-endettement_brut {
		replace `v'=0 if `v'==.
	}
	
	*Impose some restrictions on balance sheet items : negative sales, negatives employment, negative total assets and negative own funds (net of benefit/loss)
	drop if fl<=0
	drop if yp<0
	drop if total_actif_net<=0
	*drop if fp_net_resultat<0
	
	*Drop observation with difference between total assets and total liabilities higher than 1%
	keep if abs(co-A_1A-ee)/ee<=0.01			
	
*Create NAF variable at the letter level

	gen NAF2_new = ""
	replace NAF2_new = "A" if codedivisionnaf==01 | codedivisionnaf==02 | codedivisionnaf==03
	replace NAF2_new = "B" if codedivisionnaf==05 | codedivisionnaf==06 | codedivisionnaf==07 | codedivisionnaf==08 ///
	| codedivisionnaf==09
	replace NAF2_new = "C" if codedivisionnaf==10 | codedivisionnaf==11 | codedivisionnaf==12 | codedivisionnaf==13 ///
	| codedivisionnaf==14 | codedivisionnaf==15 | codedivisionnaf==16 | codedivisionnaf==17 | codedivisionnaf==18 ///
	| codedivisionnaf==19 | codedivisionnaf==20 | codedivisionnaf==21 | codedivisionnaf==22 | codedivisionnaf==23 ///
	| codedivisionnaf==24 | codedivisionnaf==25 | codedivisionnaf==26 | codedivisionnaf==27 | codedivisionnaf==28 ///
	| codedivisionnaf==29 | codedivisionnaf==30 | codedivisionnaf==31 | codedivisionnaf==32 | codedivisionnaf==33
	replace NAF2_new = "D" if codedivisionnaf==35
	replace NAF2_new = "E" if codedivisionnaf==36 | codedivisionnaf==37 | codedivisionnaf==38 | codedivisionnaf==39
	replace NAF2_new = "F" if codedivisionnaf==41 | codedivisionnaf==42 | codedivisionnaf==43 
	replace NAF2_new = "G" if codedivisionnaf==45 | codedivisionnaf==46 | codedivisionnaf==47 
	replace NAF2_new = "H" if codedivisionnaf==49 | codedivisionnaf==50 | codedivisionnaf==51 | codedivisionnaf==52 ///
	| codedivisionnaf==53 
	replace NAF2_new = "I" if codedivisionnaf==55 | codedivisionnaf==56
	replace NAF2_new = "J" if codedivisionnaf==58 | codedivisionnaf==59 | codedivisionnaf==60 | codedivisionnaf==61 /// 
	| codedivisionnaf==62 | codedivisionnaf==63
	replace NAF2_new = "K" if codedivisionnaf==64 | codedivisionnaf==65 | codedivisionnaf==66
	replace NAF2_new = "L" if codedivisionnaf==68 
	replace NAF2_new = "M" if codedivisionnaf==69 | codedivisionnaf==70 | codedivisionnaf==71 | codedivisionnaf==72 ///
	| codedivisionnaf==73 | codedivisionnaf==74 | codedivisionnaf==75 
	replace NAF2_new = "N" if codedivisionnaf==77 | codedivisionnaf==78 | codedivisionnaf==79 | codedivisionnaf==80 ///
	| codedivisionnaf==81 | codedivisionnaf==82
	replace NAF2_new = "O" if codedivisionnaf==84
	replace NAF2_new = "P" if codedivisionnaf==85
	replace NAF2_new = "Q" if codedivisionnaf==86 | codedivisionnaf==87 | codedivisionnaf==88
	replace NAF2_new = "R" if codedivisionnaf==90 | codedivisionnaf==91 | codedivisionnaf==92 | codedivisionnaf==93
	replace NAF2_new = "S" if codedivisionnaf==94 | codedivisionnaf==95 | codedivisionnaf==96 
	replace NAF2_new = "T" if codedivisionnaf==97 | codedivisionnaf==98
	replace NAF2_new = "U" if codedivisionnaf==99
	replace NAF2_new= "MISS" if  NAF2_new==""
	

	keep siren codedivisionnaf codecatégoriejuridique codecommune ///
	indicateurmonomultiétablissement year month date annéesdelexercice immo_corp_brut yp fy endettement_brut ee immo_corp_net total_actif_brut total_actif_net NAF2_new
	
*Intensité capitalistique	

	*Insee definition of capital intensity
	gen int_K_3=immo_corp_brut/(fy+immo_corp_brut)
	
	*Leverage
	gen levier=endettement_brut/ee
	
	save "$path_data_local\FIBEN_sectoral_analysis.dta", replace	

